home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbalyz / mstrfunc.bas < prev    next >
BASIC Source File  |  1995-01-05  |  2KB  |  96 lines
  1. Option Explicit
  2.  
  3. Function IsAlpha (strIn As String) As Integer
  4.  
  5. Dim intChar As Integer
  6.  
  7.     intChar = Asc(Left$(strIn, 1))
  8.     
  9.     IsAlpha = False
  10.     
  11.     If intChar < 65 Then Exit Function
  12.     If intChar > 122 Then Exit Function
  13.     If intChar > 90 And intChar < 97 Then Exit Function
  14.     
  15.     IsAlpha = True
  16.  
  17. End Function
  18.  
  19. Function LeftMostWord (strIn) As String
  20.  
  21.     If InStr(strIn, " ") = 0 Then
  22.         LeftMostWord = strIn
  23.     Else
  24.         LeftMostWord = Left$(strIn, InStr(strIn, " ") - 1)
  25.     End If
  26.  
  27. End Function
  28.  
  29. Function NextWord (ByVal strIn As String, intFrom As Integer) As String
  30.  
  31. Dim strTemp As String
  32. Dim intStart As Integer
  33.     
  34.     If intFrom = 0 Then intFrom = 1
  35.     
  36.     While Not IsAlpha(Mid$(strIn, intFrom, 1)) And intFrom <= Len(strIn)
  37.         intFrom = intFrom + 1
  38.     Wend
  39.     
  40.     If intFrom > Len(strIn) Then
  41.         NextWord = ""
  42.         Exit Function
  43.     End If
  44.     
  45.     intStart = intFrom
  46.     
  47.     While Not Mid$(strIn, intFrom, 1) = " " And intFrom <= Len(strIn)
  48.         intFrom = intFrom + 1
  49.     Wend
  50.     
  51.     NextWord = Mid$(strIn, intStart, intFrom - intStart)
  52.  
  53. End Function
  54.  
  55. Function NumOccurrences (ByVal strIn As String, ByVal strSearch As String) As Integer
  56.  
  57. Dim intCount As Integer
  58. Dim intPos As Integer
  59.  
  60.     intPos = 0
  61.     
  62.     Do
  63.         intPos = InStr(intPos + 1, strIn, strSearch)
  64.         If intPos > 0 Then
  65.             intCount = intCount + 1
  66.         End If
  67.     Loop While intPos <> 0
  68.     
  69. End Function
  70.  
  71. Sub Replace (strSrc As String, strFrom As String, strTo As String)
  72.  
  73.     Do While InStr(strSrc, strFrom)
  74.     
  75.         strSrc = Left$(strSrc, InStr(strSrc, strFrom) - 1) & strTo & Mid$(strSrc, InStr(strSrc, strFrom) + 1)
  76.     
  77.     Loop
  78.  
  79. End Sub
  80.  
  81. Function RPad (ByVal strIn As String, intLen As Integer)
  82.     
  83. ' Create a string from strIn intLen chars long, padded at the RHS with
  84. ' spaces where necessary. If strIn is longer than intLen chars, use the
  85. ' leftmost intLen chars.
  86.  
  87.     If Len(strIn) > intLen Then
  88.         RPad = Left$(strIn, intLen)
  89.         Exit Function
  90.     End If
  91.  
  92.     RPad = strIn & Space$(intLen - Len(strIn))
  93.  
  94. End Function
  95.  
  96.